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LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.0 


283 *H DIVIDE 



286 ? FLOATING POINT DIVIDE ROUTINE 

287 ? PRODUCES ROUNDED RESULT 

288 I LIN-PUT;? XX POINTS TO DIVIDE||§||L:: 

289 ? IV POINTS TO DIVISOR 

290 ? OUTPUT; IX POINTS TO QUOTIENT 

291 ? ERRORS: DIVISOR IS ZERO 

292 5 1 EXPONENT OVERFLOW OR UNDERFLOW 

293 ? REGISTER ASSIGNMENT FOR MAIN LOOP; 

294 I L \AHL - 24 BIT ACCOM > IN IT DIVIDEND 

295 ? COE - 24 BIT DIVISOR 

296 f D'E’H'L’,- RESULT REGISTER 

297 ; B - LOOP COUNTER 

298 ; ft' -BIT 7 IS SIGN OF RESULT 





INNER LOOP) 




299 

? TIMING’ 

APPROX 



300 

y 




301 

yyyyyyyyyyyy 

* y * * f * * 

? v > y tr* 



302 

* 




303 

! CHECK FOR 

ZERO OP 



304 

f 


0140 

AF ; T||Ig 

305 

DIVI XOR 

A 

0141 

FD8E03 

306 

TCP ■ 

(IY+3.) 

0.1.44 

CAE501 

R 307 

UP 

ZiDIVO 

0147 

DDBEQ3 

308 

CP 

(IX+3) 

0 14A 

CA8504 

R 309 

Jp 

Z» ZERO 


f m m rf ■» m f ? ? 5 


Y IS ZERO 


? X .lilliRO 




311 /,r-;LO.ADc 

OPERANDS ? CALCl 

■ ...3 



: 3 12 ? 




D 1 4D 

DD4600 

7i 7 

LD 

B » ( IX ) 

; LOAD X INTO BHL 

0150 * 

DO6601 

314 

LO 

H r £ IX + 1 ) 


0153 

DD6E02 

315 

LD 

L ' » <I K+m - 


n i 5 A " 

/ 

. 7 & 

316 

LD 

A , 8 

r GET SIGN IN A 

0 1.57 

CDCCOi F 

317 

CALL 

LO AIlY i; 

: LOAD i INTO CDE 

015 A 

03 

:: 313/ 

EX 

AF ; AF' 

1 8ISN 3.1 IN AF 

0 15B 

78 

319 

LD 

A ? B 

? X IN AHL. 

015 G 

F630 

320 

OR 

3 |pM:>; ■ 3 

; ORE IMPLIED 

015E 

: : l:> ' 3 l 

061A 

321 

LD ■ 

B) 26 ' '2|1|| 

? 13:OP COUNTER 

gl 6 Q 

C37701 F 

i 322 

JP 

ovsuePn^ 



0 1 63 

I! 1 A 4 


A 7 

E052 


323 ? 


324 ? MAIN DIVIDE LOOP 

325 ? PRODUCES 26 BIT RESUL 

326 :;y?|||| 

327 DVOV AND A 

328 SBC HL/DE ? 




IN (BIT 0 OF)D'E’H'L’CY 


SUBTRACT DIVISOR 





.! SET CARRY 


? DEC LOOP COUNTER 


r LOOP DONE 
; ALT BANK 
j SHIFT RESULT 




J MAIN BANK 


: SHIFT ACCUM LEFT 


? OVERFLOW ON SHIFT 





DIVIDE 


BMATHO 


PAGE 


8 


LOG 

OBJ CODE M 

STMT 

SOURCE S 

TATEMENT 


ASM 5.0 

0177 

ED52 

341 

DVSUB 

SBC 

H1..,DE 

7 

SUBTRACT DIVISOR 

0179 

99 

342 


SBC 

ArC 



0 17 A 

30EB 

343 


JR 

NCrDVRESl 

9 . 
t 

POSITIVE RESULT 

017 C 

19 

344 


ADD 

HI. ? DE 

r . 

REST 0RE ACC U M 

017D 

89 

345 


ADC 

A t L* 



017E 

A 7 

346 


AND 

A 

1 

TURN OFF CARRY 

0 17 F 

IDEA 

34 7 


DJNZ 

DVLOOP 

t. 

LOOP NOT DONE 



3 4 a 

r 







349 

? NORMALIZE 

RE SUL T 





350 

7 





0181 

D9 

351 

DVNOP.M 

EXX 


7 

ALT BANK 

0182 

06 oo 

cr O 


1.0 

B ;0 

■ " ■ • 

.. :.,P 3H; X COUNT 

0184 

7b' 

353 


LD 

A ; Ve 


;:I|IULT6il|6l|V D LAH' L ' 

0185 

0842 

3 5 4 


BIT 

0 , D 

I 

CHECK FIRST RESULT BIT 

0187 

28Q7 . 

3 5 5 


JR 

Z ? DROUND 



0189 

04 

356 


INC 

B 


If n o ;||I1!||Sunt 

0 .18 A 

37 

357 


SCF 


'3 

f 

SHIFT RESULT RIGHT 

018B 

IF 

* 

358 


RRft 




DISC 

CB 1C 

359 


: Crr 




0 18E 

C B'l D 

•8 6 0 


RR 

L 

z 

ROUNDING BIT IN CY 

0190 

CDA801 R 

3 # 

361 

DROUND 

.CALL 

RSTO 

;•/ f 

: JftiiMI.:.AND STORE FRACTION 



362 

7 ■■ 







363 

} SUBTRACT EXPONENTS 





364 

7 .. 





0193 

91 

6336:5:: 


SUB 

C 



0194 

C32901 8. 

3 66 


JR 

MCHK 




3 a 7 1 





368 


0 197 

CDS503 

019 A 

210304 

019D 

CD9D03 

01 AO 

F D 21CFO 4 

0 1A 4 

CD4001 

01A 7 

C? 


REC 

36? f 
R 370 REC 
R 371 
R 372 
R 373 
iff 374 
375 


CAL!.. S'T01 
L.D HL r Cl 
CALL. LD 
L0 IY r TEMPI 
CALL DIVI 
RET 


AVE 




* LILT r 

DTVI UTIL 

ITIES 

BMATHO 


PAGE 9 

LOG 

OBJ CODE 

M STMT 

S0URCE STATEMENT 

ASM 5.0 



376 

“? "J ~J 

*H MULT, DIVI 

UTILITIES 




378 

; RST 0 ROUND 

, STORE FRACTION, LOAD EXPONENTS 



379 

L INPUT; 

ROUNDING BIT IN CARRY 



380 

1 

NORMALIZED 

FRACTION IN AHL 



381 

r 

FINAL SIGN 

BIT IN AT 



382 

. ? output; 

UPDATED SHIFT COUNT IN B 



333 

7 

UNBIASED Eh 

p •8 IN A AND C 



384 

TIMING: 

APPROX 186 




385 

r ' 



0 .1 ft 8 

11 oooo 

386 

RSTO LD 

DE,0 


01 AS 

ED 5ft 

387 

ADC 

HL, DE 

ADD ROUNDING BIT 

0.1 AD 

CEOO 

388 

ado;: 

ft, 0 


Q.l.AF 

3001 

389 

JR 

MC t $ 4* 3 

J NO OVERFLOW 

0 1 B 1 

04 

390 

INC 

B 

.LIP SHUT COUNT 



liffl 3 91 . 

? NOTE: DUE 

TO IMPLIED 

nC■ Cl IMG UNNECESSARY 

01 B 2 

DD740J 

392 

LD 

<IX+1>rH 

? STORE FRACTION 

0 185 

DO7502 

393 

LD 

CIX+ 2 .). , t 


0 . 1 B 8 

E67F 

39 4 

; AND 

7FH 

? TU ' f IMPLIED 1 

n t p.a 

67 - 

395 

LD 

H r A 

? SAVE REST OF BYTE 

0 1 BB 

08 

398 

ex 

AF , Af.’ 

: GET FINAL SIGN 

DISC 

B4 _ 

397 

OR 

H 

i cons inf : : ccd I ; ; i 

0 1BD 

DD7700 

398 

L.D 

< IX) , A 

; STORE MSBYTE 

01 CO 

FD7E133 

399 

LD 

A, (IY+3) 

: GET EXP . 

0103 

D680» 

400 

0 SUB ; 

80 H 

J REMOVE BIAS 

QIC 5 

4F 

401 

LD 

L 7 A 


0106 

QD7E03 

.. CCC. . CClC 

402 

LD 

A,(I X+3 ) 

; GET OTHER EXP 








0109 

0680 

4 |. j. 5 

SUB 

1 80H : REMOVE BIAS 

01 OB 

■ OR 

'' ’ J 

404 

RET 



\ 

405 

■ i ■ 




406 

? LOADY LOADS FRACTION PART OF CIV > INTO ORE 



4 (17 

i INPUT? 

MSBYTE OF X IN A 



408 

; OUTPUT: 

SIGN OF RESULT IN BIT 7 OF F 



409 

; TIMING: 

86 



4.10 

7 


0 I CC 

FD4E00 

4.11 

LOADY LD 

C.(IY1 ? LOAD FRACTION 

01 OF 

FD56Q1- 

412 

LD 

D ? (IY*i> 

0.1 D 2 

FD5E02 

413 

LD 

E» ( I Y+2) 

01D5 

A 9 / 

414 

KOR 

C l CALC SIGN BIT 

0 1 D6 

E880:;v; , 

41 5 

AND 

80H 

01 OB 

CBF9 , 

416 

SKI 

7 t C i RESTORE IMPLIED. 1 

0 IDA 

C9 v 

417 

RET 




416 

1 




4.1 9 

l OVER OR UNDERFLOW ERRORS 



420 



0 1DB 

F2BBQ4 

R 421 

: HERR UfT 

it P riNDER 4 > UROERFLOy 

01 OF 

08 

422 

ex 

AF,AF' I GET SIGN 

0.1 DF 

DD7J0O 

423 

LD 

(IX), A L. .SET ; SIGN OF RESULT 

01E2 

C 38304 

R 424 

UP 

: OVER; 



425 

* 




4 26 

DIVISION 

BY ZERO ERROR 



v ; 427 



0 3 E5 

210000 

/ 

C8E6 

X 428 

DIVO LD 

HL»ERROR 

OIF 8 

429 

SET 

4 , ( HD 

0 1EA 

039604 

R 430 

i UP 

INF 







FIX 


BMATHO 


PAGE 10 


LOT: 


OBJ CODE M STMT SOURCE STATEMENT 


ASM 5.0 


431 

432 

433 

434 

435 

436 

437 
4 38 

439 

440 
4 4 i 

442 

443 

444 

445 
4- 4 6 
4 47 


*H FIX 


7 7???? 


ffvtrriTT 


J FIX CONVERTS FLOATING POINT NUMBER TO 
? 16 BIT 2'S COMPLEMENT 

I RESULT IS ROUNDED 

r ■ 

? INPUT; IX PTS TO FL PT NUMBER 

} 0 UTPUT5 Ix PTS T0 2 ? S COMP INTEGER 

t Hi. CONTAINS 2 ’ S COMP INTEGER 

; ERRORS; OVERFLOW IF INPUT CANNOT BE REPRESENTED IN 
} 16 BITS. MAX OUTPUT IS 32767, MIN IS -32768 

1 ALGORITHM; SHIFT COUNT IS DERIVED FROM EXPONENT 
5 FRACTION PART IS SHIFTED RIGHT AND CONVERTED 

} T 0 2'S COMP LE ME NT. 


01 ED 

F021C704 R 

448 

FIX 

LD 

IYrC-5 



0 1F1 

CD1BOO R 

449 


CALL 

ADD 

. r 

ADD 1/2 TO ROUND 

0 1F 4 

CD0F02 R 

450 


CALL 

FIXA 

T 

CONVERT NUMBER 

0 1F 7 

3 OOF 

451 


JR 

NC,FX60 

? 

NO OVERFLOW 



■"452 








453 

? INTEGER OVERFLOW 





454 

7 

' • 




0 1F9 

210000 X 

455 


LD 

HI., ERROR 



% 

QiFC 

CBF6 

456 


SET 

6 r « HL ) 

■r 

FLAG OVERFLOW 

n i pE 

..... .*7 i p p .7 p 

457 


LD 

HL,7FFFH 

- * 

LARGEST INTEGER 


i 

i 



! 











0201 


DD08007E 


4 58 


BIT 


7,( IX) 


0 205 

2801 

459 

JR 

2 i F X 6 0 

J SIGN POSITIVE 

0207 

23 

n ; 

460 

INC 

HL 

? SMALLEST INTEGER 



461 

* • 





462 

; STORE RESULT 



i 

1 

463 

T 



0 208 ' 

/ 

DD7500 

464 

FK60 1.0 

( IX ) , L 



-s 





0 9 0 8 

007401 

465 

L,D 

C X X + t ) r H 


0 20E 

C9 

4 6 6 

RET 





467 

r 





4 6 $ 

? FIXA MAIN 

16 BIT FIX 

OPERATION 



469 

.? INPUT! 

XX PIS TO 

FL PT NUMBER 



470 

? OUTPUT? 

HL IS 16 B 

IT::';2 ? S COMPLEMENT 



4 7 i 

r 

CY IS SET 

IF HL IS INVALID (OV 



472 




020?" 

. AF 

473 

FIMA XOR 

A 


0 210 

67 

4 7 4* 

LP 

H, A 

? CLEAR ACCOM 

n? i j 

6F 

475 

LD 

1- / A 


0212 

DDBE03 

476 

CP 

ax+3) 


0215 

C6- 

477 

RET 

z 

i INPUT WAS ZERO 

0216 

DD6600 

478 

: LD 

H ? CIX) 

L,LftAD MS 16 BITS 

0219 

CBFC 

479 

SET 

7 ? H 

Lipilf TORE.; IMPLIED 

0 2 IB 

DO6601 

480 

LD 

L, ( IX+1 > 


0216: 

3690 

: 481 

LD 

: A ? 16+80H 


0220 

DD9603 

:'T::;j482 

1 SUB 

(11|+ 3 ) 

) SHIFT COUNT 

0223 

08 

483 

RET 

C 

? X >= 2 + 16 

0 224 

2813 

484 

JR 

Z,FX25 

? .COUNT IS ZERO 



485 

} 





486 

5 INITIALIZE 

: FOR LOOP 



487 





0226 0610 


488 I..D B r 16 ? SET MAX COUNT 




FIX 


BMATHO 


LOG 

OBJ CODE M 

STMT 

SOURCE ST 

ftTEMFNT 

0228 

B8 

489 


CP 

B 

0229 

3001 

490 


•JR 

NCfFXH 

Q22B 

47 

491 


LD 

BrA 

022C 

AF 

492 

FX10 

X 0 R 

ft 

0220 

DDBEQ2 

493 


CP 

(IX+2) 

0 230 

12 

494 


RL A 




495 

W'$C 





494 

j SHIFT 

RIGHT 

UNTIL 



497 




0 231 

CB3C , 

498 

FX2D 

SRL 

H 

0233 

0810 , 

499 


Rft 

L 

0 235 

CEOO 

500 


ADC 

A ? 0 

0237 

10F8 

501 


DJNZ 

FX20 



502 

; 





5 03 

■ CONVERT TO 

2 ’ S CO 



504 

;• T 



n 779 

DDCB007E 

505 

F X 2 5 

BIT 

7 » CIX ) 

0230 

2810 . 

506 


JR 

2 > FX40 

023F 

ft 7 . 

507 


AND 

ft 

0240 

2801 

508 


JR 

7 , FX30 

0 242 

23 ! 

509 


INC: 


0243 

EB 

510 

FX30 

EX 

DErHL 

0244 

210000 
f* 

511 


LD 

HI. t 0 

0247 

A7 

512 


AND 

ft 

0 248 

EP52 » 

513 


.SBC . ■ 

HL. 7 D£ 

02 4 A 

F25302 R 

514 


JP 

P , FX50 




024D 


A 7 


515 


AND ft 


P A l,;t P 


ASM 5 * 0 C 

: ^®lcv:"> v ':®:c' ^ . 

: t 

? COUNT >-• 16 
J SET COUNT 
; CLEAR A 

} ft IS i IF (IX+2)>0 

OUNT-O 


? ACCUM BITS SHFTD OUT 

L E fl £ N T 

» f'.OS II IV E 

; EXACT INTEGER 


; NEGATE 
i OVERFLOW 
? CLEAR CY 








0Z4E 

c? 

516 


RET 



0 24F 

A7 

517 

FX40 

AND 

A 

5 CLEAR CY 

0250. 

C870 

518 


BIT 

7 7 H 


0 ? f? ? 

C8 

51 9 


RET 

“? 

t. 

f NO OVERFLOW 



5 2 0 

: 






52 i 

? OVERFLOW 





527 

: 




0 253 

7*7 

cr 

p y s n 

SCF 


$ SET CY 

0254 

09 

524 


RET 







